1 GOSUB60000 10 REM HAVE A SAFE AND SANE JULY 4TH 20 REM ** BY - M. N. CARSWELL 30 REM ** 486 S. STEEL BRIDGE RD. S.E. 40 REM ** EATONTON, GA. 31024 50 REM ** SOUND BY DAUGHTER JUDY ** 51 RESTORE 52 SID=54272:FORT=0TO24:POKESID+T,0:NEXT 53 POKESID+24,15:POKESID+5,85:POKESID+6,85 54 FF=10 55 PRINT"[147][144]":POKE53281,1 56 PRINT"ONE MOMENT PLEASE....." 57 PRINT:PRINT"PLEASE TURN YOUR VOLUME UP....." 60 REM SPRITE DATA 65 V=53248:POKE2040,192:POKE2041,193 70 POKEV+39,1:POKEV+40,1 75 POKEV+29,3:POKEV+23,3 80 POKEV+16,0:POKEV,160:POKEV+2,160 85 POKEV+1,117:POKEV+3,117 90 FORRD=0TO127:READ DA:POKE12288+RD,DA:NEXT 100 PRINT"[147]" 110 N$= " ARE YOU READY?" 120 FOR A=1 TO LEN(N$) 130 PRINT"[147]": 140 PRINT"":PRINT RIGHT$(N$,A):GOSUB5000 150 NEXTA 160 FOR J=1 TO 500:NEXT:POKESID+4,0:FORJ=1TO1500:NEXT 162 POKE198,0:WAIT198,1:GETJJ$:IFJJ$<>"Y"THEN162 165 PRINT"[147]" 170 N$= " THEN LETS GO" 180 FOR A=1 TO LEN(N$) 185 PRINT"[147]" 190 PRINT"":PRINT RIGHT$(N$,A):GOSUB6000 200 NEXTA 210 FOR J=1 TO 500:NEXT:POKESID+4,0:FORJ=1TO1500:NEXT 490 PRINT"[147]" 499 REM START COLOR BARS 500 POKE 53280,1:POKE 53281,14 510 FOR J=9TO 0STEP-1:POKE1229+J,160:POKE55501+J,1:GOSUB5000:NEXT 520 FOR J=0TO9:POKE 1269+J,160:POKE 55541+J,1:GOSUB5000:NEXT 530 FOR J=80 TO 0STEP-40:POKE1199+J,42:POKE 55471 +J,6:GOSUB6000:NEXT 540 FOR J=10TO0 STEP-1:POKE 1188+J,42:POKE 55460+J,6:GOSUB6000:NEXT 550 FOR J=0TO80 STEP40:POKE1228+J,42:POKE55500+J,6:GOSUB6000:NEXT 560 FOR J=0TO 10STEP1:POKE1309+J,42:POKE 55581+J,6:GOSUB6000:NEXT 570 FOR J=160TO0STEP-40:POKE1160+J,160:POKE 55432+J,2:GOSUB5000:NEXT 580 FOR J=12TO0STEP-1:POKE1147+J,160:POKE 55419+J,2:GOSUB5000:NEXT 590 FOR J =0 TO 160STEP40:POKE1187+J,160:POKE55459+J,2:GOSUB5000:NEXT 600 FOR J=0 TO 12 STEP1:POKE1348+J,160:POKE55620+J,2:GOSUB5000:NEXT 610 FOR J=240TO0STEP-40:POKE1121+J,160:POKE 55393+J,1:GOSUB6000:NEXT 620 FOR J=14TO0STEP-1:POKE1106+J,160:POKE55378+J,1:GOSUB6000:NEXT 630 FOR J=0TO240STEP40:POKE1146+J,160:POKE55418+J,1:GOSUB6000:NEXT 640 FOR J=0TO14STEP1:POKE1387+J,160:POKE55659+J,1:GOSUB6000:NEXT 650 FOR J=320 TO 0 STEP -40:POKE1082+J,42:POKE55354+J,6:GOSUB5000:NEXT 660 FOR J=16TO0STEP-1:POKE1065+J,42:POKE55337+J,6:GOSUB5000:NEXT 670 FOR J=0TO320 STEP40:POKE1105+J,42:POKE55377+J,6:GOSUB5000:NEXT 680 FOR J=0 TO16 STEP1:POKE1426+J,42:POKE55698+J,6:GOSUB5000:NEXT 690 FOR J=400 TO 0 STEP-40:POKE1043+J,160:POKE55315+J,2:GOSUB6000:NEXT 700 FOR J=18TO0STEP-1:POKE1024+J,160:POKE55296+J,2:GOSUB6000:NEXT 710 FOR J=0 TO400 STEP40:POKE1064+J,160:POKE55336+J,2:GOSUB6000:NEXT 720 FOR J=0TO38STEP1:POKE1465+J,160:POKE55737+J,2:GOSUB5000:NEXT 730 FOR J=400TO40STEP-40:POKE1063+J,160:POKE55335+J,2:GOSUB5000:NEXT 740 FOR J=19TO0STEP-1:POKE1044+J,160:POKE55316+J,2:GOSUB5000:NEXT 750 FOR J=0TO400STEP40:POKE1084+J,160:POKE55356+J,2:GOSUB5000:NEXT 760 FOR J=0TO17STEP1:POKE1445+J,42:POKE55717+J,6:GOSUB6000:NEXT 770 FOR J=320TO0STEP-40:POKE1102+J,42:POKE55374+J,6:GOSUB6000:NEXT 780 FOR J=17TO0STEP-1:POKE1085+J,42:POKE55357+J,6:GOSUB6000:NEXT 790 FOR J=0TO280 STEP40:POKE1125+J,42:POKE55397+J,6:GOSUB6000:NEXT 800 FOR J=0TO15STEP1:POKE1406+J,160:POKE55678+J,1:GOSUB5000:NEXT 810 FOR J=240TO0STEP-40:POKE1141+J,160:POKE55413+J,1:GOSUB5000:NEXT 820 FOR J=14TO0STEP-1:POKE1126+J,160:POKE55398+J,1:GOSUB5000:NEXT 830 FOR J=0TO200STEP40:POKE1166+J,160:POKE55438+J,1:GOSUB5000:NEXT 840 FORJ=0TO13STEP1:POKE1367+J,160:POKE55639+J,2:GOSUB6000:NEXT 850 FOR J=160 TO0STEP-40:POKE1180+J,160:POKE55452+J,2:GOSUB6000:NEXT 860 FOR J=13 TO 1STEP-1:POKE1166+J,160:POKE55438+J,2:GOSUB6000:NEXT 870 FOR J=0TO120STEP40:POKE1207+J,160:POKE55479+J,2:GOSUB6000:NEXT 880 FORJ=0TO11STEP1:POKE1328+J,42:POKE55600+J,6:GOSUB5000:NEXT 890 FOR J=80TO0STEP-40:POKE1219+J,42:POKE55491+J,6:GOSUB5000:NEXT 900 FOR J=11TO1STEP-1:POKE1207+J,42:POKE55479+J,6:GOSUB5000:NEXT 910 FOR J=0TO80STEP40:POKE1248+J,42:POKE55520+J,6:GOSUB5000:NEXT 920 FOR J=0TO9STEP1:POKE1289+J,160:POKE55561+J,1:GOSUB6000:NEXT 930 FOR J=9TO0STEP-1:POKE1249+J,160:POKE55521+J,1:GOSUB6000:NEXT 940 FOR J=0 TO9STEP1:POKE1809+J,160:POKE56081+J,1:GOSUB6000:NEXT 950 FOR J=9TO0STEP-1:POKE1769+J,160:POKE56041+J,1:GOSUB6000:NEXT 960 FOR J=0TO80STEP40:POKE1768+J,42:POKE56040+J,6:GOSUB5000:NEXT 970 FOR J=1 TO 11STEP1:POKE1848+J,42:POKE56120+J,6:GOSUB5000:NEXT 980 FOR J=80TO0STEP-40:POKE1739+J,42:POKE56011+J,6:GOSUB5000:NEXT 990 FOR J=11 TO0STEP-1:POKE1728+J,42:POKE56000+J,6:GOSUB5000:NEXT 1000 FOR J=0TO160STEP40:POKE1727+J,160:POKE55999+J,2:GOSUB6000:NEXT 1010 FOR J=1TO13STEP1:POKE1887+J,160:POKE56159+J,2:GOSUB6000:NEXT 1020 FOR J=160 TO0STEP-40:POKE1700+J,160:POKE55972+J,2:GOSUB6000:NEXT 1030 FOR J=13 TO0STEP-1:POKE1687+J,160:POKE55959+J,2:GOSUB6000:NEXT 1040 FOR J=0TO240 STEP40:POKE1686+J,160:POKE55958+J,1:GOSUB5000:NEXT 1050 FOR J=0TO14 STEP1:POKE1927+J,160:POKE56199+J,1:GOSUB5000:NEXT 1060 FORJ=240TO0STEP-40:POKE1661+J,160:POKE55933+J,1:GOSUB5000:NEXT 1070 FOR J=14TO0STEP-1:POKE1646+J,160:POKE55918+J,1:GOSUB5000:NEXT 1080 FOR J=0TO320STEP40:POKE1645+J,42:POKE55917+J,6:GOSUB6000:NEXT 1090 FOR J=0TO16STEP1:POKE1966+J,42:POKE56238+J,6:GOSUB 6000:NEXT 1100 FOR J=320TO0STEP-40:POKE1622+J,42:POKE55894+J,6:GOSUB6000:NEXT 1110 FOR J=16 TO0STEP-1:POKE1605+J,42:POKE55877+J,6:GOSUB6000:NEXT 1120 FOR J=0TO400STEP40:POKE1604+J,160:POKE55876+J,2:GOSUB5000:NEXT 1130 FOR J=0TO18STEP1:POKE2005+J,160:POKE56277+J,2:GOSUB5000:NEXT 1140 FOR J=400TO0STEP-40:POKE1583+J,160:POKE55855+J,2:GOSUB5000:NEXT 1150 FOR J=38TO0STEP-1:POKE1544+J,160:POKE55816+J,2:GOSUB5000:NEXT 1160 FOR J=0TO400STEP40:POKE1584+J,160:POKE55856+J,2:GOSUB6000:NEXT 1170 FOR J=0TO18STEP1:POKE1985+J,160:POKE56257+J,2:GOSUB6000:NEXT 1180 FOR J=360TO0STEP-40:POKE1603+J,160:POKE55875+J,2:GOSUB6000:NEXT 1190 FOR J=17TO0STEP-1:POKE1585+J,42:POKE55857+J,6:GOSUB5000:NEXT 1200 FOR J=0TO320STEP40:POKE1625+J,42:POKE55897+J,6:GOSUB5000:NEXT 1210 FOR J=0TO16STEP1:POKE1946+J,42:POKE56218+J,6:GOSUB5000:NEXT 1220 FOR J=280TO0STEP-40:POKE1642+J,42:POKE55914+J,6:GOSUB5000:NEXT 1230 FOR J=15TO0STEP-1:POKE1626+J,160:POKE55898+J,1:GOSUB6000:NEXT 1240 FOR J=0TO240STEP40:POKE1666+J,160:POKE55938+J,1:GOSUB6000:NEXT 1250 FOR J=0TO14 STEP1:POKE1907+J,160:POKE56179+J,1:GOSUB6000:NEXT 1260 FOR J=200TO0STEP-40:POKE1681+J,160:POKE55953+J,1:GOSUB6000:NEXT 1270 FOR J=13TO0STEP-1:POKE1667+J,160:POKE55939+J,2:GOSUB5000:NEXT 1280 FOR J=0TO160STEP40:POKE1707+J,160:POKE55979+J,2:GOSUB5000:NEXT 1290 FOR J=0TO12STEP1:POKE1868+J,160:POKE56140+J,2:GOSUB5000:NEXT 1300 FOR J=120TO0STEP-40:POKE1720+J,160:POKE55992+J,2:GOSUB5000:NEXT 1310 FOR J=11TO0STEP-1:POKE1708+J,42:POKE55980+J,6:GOSUB6000:NEXT 1320 FOR J=0TO80STEP40:POKE1748+J,42:POKE56020+J,6:GOSUB6000:NEXT 1330 FOR J=0TO10STEP1:POKE1829+J,42:POKE56101+J,6:GOSUB6000:NEXT 1340 FOR J=40TO0STEP-40:POKE1759+J,42:POKE56031+J,6:GOSUB6000:NEXT 1350 FORJ=9TO0STEP-1:POKE1749+J,160:POKE56021+J,1:GOSUB5000:NEXT 1360 FOR J=0TO9STEP1:POKE1789+J,160:POKE56061+J,1:GOSUB5000:NEXT 1370 FORJ=0TO39STEP1:POKE1504+J,160:POKE55776+J,1:GOSUB6000:NEXT 1380 POKE53281,1 1385 FORJ=1TO500:NEXT:FORJ=4TO18STEP7:POKESID+J,0:NEXT 1390 PRINT"SWIMMINGBOATING" 1400 PRINT"HIKINGCAMPING 1410 [153]"FISHINGRACING" 1420 [153]"RUNNINGSKIING" 1425 [129]J[178]1[164]500:[130] 1430 [143] HAVE A SAFE JULY 4TH 1440 [153]"" 1450 [153]"" 1460 A$[178]"HAVE A SAFE AND SANE JULY 4TH" 1470 A[178][195](A$):[139]A[173]2[179][177] [181](A[173]2) [167] A$[178]" "[170]A$:[137] 1470 1480 [129] I[178]1[164]A[173]2 1490 [153] [163]20[171]I);[200](A$,I);[201](A$,I):[141]7000 1500 [153]"ON"; 1510 [129] ZZ[178]1[164]300:[130] ZZ 1520 [130] I 1532 [129] X[178]1[164]2000:[130] 1535 [141] 4000 1536 [129]J[178]1[164]500:[130] 1537 [153]"LOAD" 1538 [151]53280,1:[151]53281,14 2500 [143] ***ENDING*** 2600 [151]SID[170]5,85:[151]SID[170]6,85 2601 [151]V[170]21,1 2605 [129]X[178]1[164]3:[135]DD(X):[130] 2610 [151]SID[170]24,15 2615 [129]T[178]1[164]18:[153]:[130] 2616 [153][163]12)"HAVE A NICE DAY!" 2617 [129]X[178]1[164]500:[130] 2620 [129] A[178]1[164]15:[141]6000:[151]SID[170]24,15[171]A 2625 [139][181](A[173]2)[178]A[173]2[167][151]V[170]21,2:[137]2627 2626 [151]V[170]21,1 2627 [129]T[178]1[164]50:[130] 2630 [129] B[178]1[164]3 2640 [139]B[178]2[167] [141]6000:[137] 2660 2650 [141] 5000 2660 [151] 53280,DD(B) 2670 [129] C[178]1[164]50:[130] 2680 [130] B 2700 [130] A:[129]X[178]1[164]1500:[130]:[151]V[170]21,0 2710 [129] X[178]0[164]24:[151]SID[170]X,0:[130] 2730 [151]53280,6:[151]53281,1 2740 [153]"***PRESS 'Y' TO RUN AGAIN.***":[151]198,0 2750 [161]A$:[139]A$[178]""[167] 2750 2760 [139] A$[178]"Y" [167] [137] 51 2770 [153]"LOAD":[151]53280,14:[151]53281,6:[153] [199](154) 2780 [137]63000 3990 [143] 3999 [143] PLAY SONG 4000 [129]CL[178]0[164]24:[151]SID[170]CL,0:[130] 4005 [151]SID[170]23,2:[151]SID[170]22,1 4006 [151]SID[170]3,4 4010 [151]SID[170]24,31:[151]SID[170]5,9:[151]SID[170]6,63:[151]SID[170]12,85:[151]SID[170]13,255 4020 [151]SID[170]19,24:[151]SID[170]20,255 4030 [135]D,L1,H1,L2,H2,L3,H3 4035 [139]D[178][171]1[167]4100 4040 [151]SID,L1:[151]SID[170]1,H1:[151]SID[170]7,L2:[151]SID[170]8,H2 4050 [151]SID[170]14,L3:[151]SID[170]15,H3 4060 [151]SID[170]4,65:[151]SID[170]11,33:[151]SID[170]18,17 4070 [129]J[178]1[164]D[172]3:[130]:[129]CL[178]4[164]18[169]7:[151]SID[170]CL,0:[130]:[129]J[178]1[164]D[173]2:[130] 4080 [137]4030 4100 [129]CL[178]0[164]24:[151]SID[170]CL,0:[130]:[142] 4999 [143] RISING SCALE 5000 [151]SID,FF:[151]SID[170]1,FF:[151]SID[170]4,17 5020 FF[178]FF[170].5:[142] 5999 [143] FALLING SCALE 6000 [151]SID,FF:[151]SID[170]1,FF:[151]SID[170]4,33 6020 FF[178]FF[171].5:[142] 7000 [143] GONG 7005 [151]SID[170]5,12:[151]SID[170]6,9:[151]SID[170]24,15 7010 [151]SID[170]1,10:[151]SID[170]15,25:[151]SID[170]4,21 7015 [129]T[178]1[164]200:[130]:[151]SID[170]4,20 7020 [142] 8000 [143] SPRITE DATA 8001 [131]0,60,0,1,195,128,7,0,224,28,0,56 8002 [131]48,0,12,96,0,6,97,129,134,98,66,70 8003 [131]193,129,131,192,0,3,192,0,3,192,0,3 8004 [131]192,0,3,98,0,70,99,0,198,96,195,6 8005 [131]48,60,12,28,0,56,7,0,224,1,195,128,0,60,0,0 8006 [131]0,60,0,1,195,128,7,0,224,28,0,56 8007 [131]48,0,12,96,0,6,96,1,134,99,194,70 8008 [131]193,129,131,192,0,3,192,0,3,192,0,3 8009 [131]192,0,3,98,0,70,99,0,198,96,195,6 8010 [131]48,60,12,28,0,56,7,0,224,1,195,128,0,60,0,0 8100 [143] SONG DATA 8101 [131]100,96,22,195,16,48,11 8102 [131]100,96,22,195,16,48,11 8103 [131]100,30,25,209,18,119,7 8104 [131]150,31,21,195,16,97,8 8105 [131]50,96,22,209,18,97,8 8106 [131]100,30,25,31,21,97,8 8107 [131]100,49,28,96,22,48,11 8108 [131]100,49,28,96,22,104,9 8109 [131]100,223,29,30,25,119,7 8110 [131]150,49,28,96,22,97,8 8111 [131]50,30,25,31,21,97,8 8112 [131]100,96,22,24,14,104,9 8113 [131]100,30,25,209,18,119,7 8114 [131]100,96,22,195,16,97,8 8115 [131]100,31,21,143,12,97,8 8116 [131]300,96,22,195,16,48,11 8117 [131]100,135,33,49,28,48,11 8118 [131]100,135,33,49,28,24,14 8119 [131]100,135,33,49,28,195,16 8120 [131]150,135,33,49,28,48,11 8121 [131]50,223,29,30,25,48,11 8122 [131]100,49,28,96,22,48,11 8123 [131]100,223,29,30,25,97,8 8124 [131]100,223,29,30,25,143,10 8125 [131]100,223,29,30,25,143,12 8126 [131]150,223,29,30,25,97,8 8127 [131]50,49,28,96,22,97,8 8128 [131]100,30,25,31,21,97,8 8129 [131]100,49,28,96,22,48,11 8130 [131]50,223,29,96,22,209,18 8131 [131]50,49,28,96,22,195,16 8132 [131]50,30,25,96,22,239,14 8133 [131]50,96,22,96,22,24,14 8134 [131]150,49,28,96,22,48,11 8135 [131]50,223,29,31,21,143,12 8136 [131]100,135,33,96,22,24,14 8137 [131]50,162,37,96,22,239,14 8138 [131]50,223,29,96,22,209,18 8139 [131]100,49,28,96,22,195,16 8140 [131]100,30,25,31,21,97,8 8141 [131]300,96,22,24,14,48,11 8142 [131]-1,-1,-1,-1,-1,-1,-1 8199 [143] ENDING DATA 8200 [131] 1,2,6 60000 T$[178]" ":C[178]0:C$[178]"":[153]"LOAD":[151]53281,0 60030 [153][166]7)""T$:[153][166]7)" (null)AFE AND (null)ANE MID$ULY 4TH WAIT" 60051 [153][166]7)""T$:[153]:[153][163]18)"BY" 60060 [153]:[153][166]13)"(null).(null). LENARSWELL" 60070 [153]:[153][166]12)"LENOPYRIGHT 1985" 60080 [153]:[153]:[153]:[153]" (null)(null)ATNSTR$(null)(null)ATN(null) IS NOT PUBLIC DOMAIN." 60090 [153]:[153]" (null)LEASE RESPECT THE AUTHOR'S RIGHTS." 60100 [153]:[153]" (null)RESS SPACE BAR TO CONTINUE." 60110 [129]CC[178]1[164]48:[161]K$:[139]K$[178]" "[167]60130 60120 [139]CC[178]1[167][153][202](C$,C[170]2,1)"ONON";:C[178][168](C) 60125 [130]:[137]60100 60130 [153]C$:[142] 63000 [143] CONNECT BACK TO L.S. 63002 [153]"LOADLOAD"[199](34)"PAYLOAD"[199](34)",8":[153]"RUN" 63004 [151]198,0:[151]631,13:[151]632,13:[151]198,2:[128]